home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
ffccflow
/
ffccflow.lha
/
ffccc+flow
/
ffccc
/
FLDUMP.f
< prev
next >
Wrap
Text File
|
1992-07-31
|
555b
|
20 lines
SUBROUTINE FLDUMP(NUN,N,STRING,NCOUNT)
*-----------------------------------------------------------------------
*
*--- writes lines onto output file
*
*--- input
* NUN output unit
* N # of lines
* STRING lines
*--- input/output
* NCOUNT counter to be increased by N
*
*-----------------------------------------------------------------------
CHARACTER *(*) STRING(*)
DO 10 I=1,N
WRITE (NUN,'(A)') STRING(I)
10 CONTINUE
NCOUNT=NCOUNT+N
END